home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tb.d64 / bat.loop < prev    next >
Text File  |  2007-02-28  |  327b  |  16 lines
  1. ! ┬ATCH LOOP.
  2. COUNTER:-1
  3. ;COUNTER
  4. ╔╞ COUNTER>0 ╙┼╠┼├╘ ╔╬╨╒╘ "BAT.LOOP"
  5.  
  6. ! ╨╥┼╙╙ ╙╚╔╞╘ ╘╧ ├╧╬╘╔╬╒┼
  7. A:=0
  8. ╫╚╔╠┼ A=0 ─╧ A:=╨┼┼╦($28D)
  9. ;""147""
  10. ╔╞ A<>1 ;""158"┘OU DIDN'T PRESS SHIFT"
  11. ;""158""
  12. ! ╬OTE THAT ALL PACKAGES AND MEMORY
  13. ! RESIDENT ╨╥╧├S AND ╞╒╬├S CAN BE USED
  14. ! FROM THIS ENVIRONMENT.
  15.                                        
  16.